MODULE SHARE
DOUBLE PRECISION :: X(60,2),BETA(2),XTR(2,60),XTRXI(2,2),XTRY(2),Y(60),XTRX(2,2),RES(60),ressd
DOUBLE PRECISION :: zero,one,two
INTEGER :: REGN,REGK
END MODULE
